home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / pbatch11.zip / PBHELP.BAT < prev    next >
Encoding:
DOS Batch File  |  1994-07-14  |  23.5 KB  |  571 lines
  1. @echo off
  2.  
  3. :/*==============================================================*\
  4. : |                                                              |
  5. : | Hello! This is the tutorial batch file of PowerBatch! Look   |
  6. : | through it and don't be annoyed by the large number of pa-   |
  7. : | rameters used in my calls of the pb (= PowerBatch) execu-    |
  8. : | table! What I do here is to make _HEAVY_ use of PowerBatch's |
  9. : | capabilities. This could be YOUR batch file already! Think   |
  10. : | of using nice menus, mouse control and hotkeys instead of    |
  11. : | choice and echo orgys! And all this is for free! If you      |
  12. : | really want to use it regularly, let me have $ 20,-- or      |
  13. : | at least send me a nice nice nice post card of where you     |
  14. : | live! My son would be so glad receiving post cards from all  |
  15. : | over the world, so just go for it and let me have one. If    |
  16. : | you want to, I can send you one of where I live, as well.    |
  17. : |                                                              |
  18. : | Hallo! Dies ist das Hilfeprogramm von PowerBatch! Sehen Sie  |
  19. : | sich ruhig alles an und lassen Sie sich nicht von den vie-   |
  20. : | len Parametern schocken, die ich in den Aufrufen von pb      |
  21. : | (= PowerBatch) verwende! Ich verwende hier _EXTENSIV_ die    |
  22. : | Möglichkeiten von PowerBatch. Dies könnte bereits IHR Batch  |
  23. : | File sein! Denken Sie einmal an die schönen Menüs mit Maus-  |
  24. : | steuerung, Tastenkürzeln u.a., die Sie jetzt ganz einfach    |
  25. : | realisieren können! Ohne Choice- und Echo-Orgien! Und all    |
  26. : | das "für lau"! Wenn Sie das Programm wirklich regelmäßig     |
  27. : | verwenden wollen, senden Sie mir einfach DM 30,-- oder       |
  28. : | schicken Sie mir eine hübsche Postkarte von Ihrem Wohnort    |
  29. : | oder aus dem Urlaub! Mein Sohn ist ganz wild darauf, Post-   |
  30. : | karten aus der ganzen Welt zu bekommen, also auf auf,        |
  31. : | schicken Sie mir einfach eine, und wenn Sie möchten, schreibe|
  32. : | ich auch zurück. Vielen Dank im voraus.                      |
  33. : |                                                              |
  34. : | Matthias Nott -- Alte Uslarer Straße 9b -- D-37181 Hardegsen |
  35. : |        Tel. (++49) 5505 1542 -- Fax (++49) 5505 2807         |
  36. : |                     EMAIL: MNOTT@GWDG.DE                     |
  37. : |                                                              |
  38. : |                                                              |
  39. : |                                                              |
  40. : | TO DO:   * Text input / output to an environment variable.   |
  41. : |            This one will be quite difficult. The input       |
  42. : |            functionality is allready built in, but not       |
  43. : |            yet activated, since there is no output so far    |
  44. : |            (it's difficult and insecure to modify master     |
  45. : |            environemnt).                                     |
  46. : |          * Allow scrollbars -> get a full featured text      |
  47. : |            previewer. That shouldn't be too difficult.       |
  48. : |          * Support screen modes other than 80*25 (the pro-   |
  49. : |            gram doesn't care about them, but lets you use    |
  50. : |            80*25 only. This should be quite easy anyway.     |
  51. : |          * Allow the menu bar remaining in the same line     |
  52. : |            as it was when you made a selection (it will      |
  53. : |            go back to the first line since the menu is       |
  54. : |            redrawn completely). This _is_ possible with      |
  55. : |            the option "choose automatically" together with   |
  56. : |            "after 0 seconds" (that is go to a defined menu   |
  57. : |            item and do nothing else). But you would have to  |
  58. : |            hack around with your batch file. Any ideas any-  |
  59. : |            one?                                              |
  60. : |          * Convince people of paying or at least of sending  |
  61. : |            post cards for my son. :) As a child you would    |
  62. : |            have been excited as well about post cards from   |
  63. : |            all over the world, wouldn't you???               |
  64. : |                                                              |
  65. :\*==============================================================*/
  66.  
  67.  
  68.  
  69. :/*--------------------------------------------------------------*\
  70. : |  Zuerst die Auswahl der richtigen Sprache (deutsch/englisch) |
  71. : |  First choose the right language (german/english)            |
  72. : |  Deutsche Dateien = *.ger, englische Dateien = *.eng         |
  73. : |  German files     = *.ger, english files     = *.eng         |
  74. : |                                                              |
  75. : |  Zugleich ist dies hier die einfachste Form eines Menüs:     |
  76. : |  Der Benutzer kann zwischen zwei Optionen wählen. Das Menü   |
  77. : |  wird zusätzlich auf einem grauen Fensterhintergrund (back-  |
  78. : |  groun.men) mit Titelzeile (title.men) und Statuszeile       |
  79. : |  (status0.men) dargestellt. Der Menütext selbst steht in     |
  80. : |  der Datei lang.men.                                         |
  81. : |                                                              |
  82. : |  Meanwhile, this is an example for a simple menu: The user   |
  83. : |  can choose from two options. Additionally, the menu is dis- |
  84. : |  played on a nice grey background (backgrou.men), with title-|
  85. : |  bar (title.men) and status line (status0.men). The menu     |
  86. : |  entries themselves reside in lang.men.                      |
  87. :\*--------------------------------------------------------------*/
  88.  
  89. pb backgrou.men  -fh0 -ft7  -x1  -y1 -r0  -s0
  90. pb titel.men     -fh1 -ft15 -x2  -y2
  91. pb status0.men   -fh7 -ft0  -x1 -y25 -r0  -s0
  92. pb lang.men      -fh1 -ft15 -fn0 -m1 -mm1 -mx4 -my3
  93. if errorlevel 254 goto END
  94. if errorlevel 2   goto ENGHALLO
  95. if errorlevel 1   goto GERHALLO
  96.  
  97.  
  98.  
  99. :/*==============================================================*\
  100. : |                                                              |
  101. : | Dies ist das deutsche Hilfesystem. Die englische Fassung ist |
  102. : | weiter unten! This is the German tutorial. See below for the |
  103. : | english version!                                             |
  104. : |                                                              |
  105. :\*==============================================================*/
  106.  
  107.  
  108. :/*--------------------------------------------------------------*\
  109. : |                    Anzeigen des Hauptmenüs:                  |
  110. :\*--------------------------------------------------------------*/
  111. :GERHALLO
  112.  
  113. pb backgrou.men  -fh0 -ft7  -x1  -y1 -r0  -s0
  114. pb titel.ger     -fh1 -ft15 -x2  -y2
  115.  
  116.  
  117. :/*--------------------------------------------------------------*\
  118. : |                   Auswerten des Hauptmenüs:                  |
  119. :\*--------------------------------------------------------------*/
  120. :GERMENU
  121.  
  122. pb status.ger    -fh7 -ft0  -x1 -y25 -r0  -s0
  123. pb menu.ger      -fh1 -ft15 -fn0 -m1 -mm1 -mx4 -my3 -o1
  124. if errorlevel 254 goto END
  125. if errorlevel 6   goto GERINFO
  126. if errorlevel 5   goto GERMENU
  127. if errorlevel 4   goto GERPARAM
  128. if errorlevel 3   goto GERLOOK
  129. if errorlevel 2   goto GERLEARN
  130. if errorlevel 1   goto GERINTRO
  131.  
  132.  
  133.  
  134. :/*--------------------------------------------------------------*\
  135. : |                    Einführungsbildschirm:                    |
  136. :\*--------------------------------------------------------------*/
  137. :GERINTRO
  138.  
  139. pb backgrou.men  -fh0 -ft7   -x1 -y1    -r0 -s0
  140. pb status8.ger   -fh7  -ft0  -x1 -y25   -r0 -s0
  141. pb intro1.ger    -ft15 -u3   -y1 -fu142
  142. pb intro1b.ger   -o1   -y2   -x7 -r0    -s0 -ft14 -mm1
  143. rem Ja, ja... Unterschiedliche Textfarbein in einem Textfenster
  144. rem sind nur ein Täuschungsmanöver :) In Wirklichkeit wird ein
  145. rem Teil des Textfensters (intro1.ger) in einer anderen Farbe
  146. rem (intro1b.ger) noch einmal darübergelegt.
  147. pb backgrou.men  -fh0 -ft7   -x1 -y1    -r0 -s0
  148. pb status8.ger   -fh7  -ft0  -x1 -y25   -r0 -s0
  149. pb intro2.ger    -ft15 -u3   -y1 -fu142 -o1 -mm1
  150. pb intro3.ger    -ft15 -u3   -y1 -fu142 -o1 -mm1
  151. pb intro4.ger    -ft15 -u3   -y1 -fu142 -o1 -mm1
  152. pb intro5.ger    -ft15 -u3   -y1 -fu142 -o1 -mm1
  153. pb intro6.ger    -ft15 -u3   -y1 -fu142 -o1 -mm1
  154. pb intro7.ger    -ft15 -u3   -y1 -fu142 -o1 -mm1
  155. pb intro8.ger    -ft15 -u3   -y1 -fu142 -o1 -mm1
  156. pb intro9.ger    -ft15 -u3   -y1 -fu142 -o1 -mm1
  157. pb intro10.ger   -ft15 -u3   -y1 -fu142 -o1 -mm1
  158. pb titel.ger     -fh1 -ft15  -x2 -y2
  159. pb intro11.ger   -ft15 -u3   -y6 -fu142 -o1 -mm1
  160. goto GERHALLO
  161.  
  162.  
  163.  
  164. :/*--------------------------------------------------------------*\
  165. : |                     Lernen und Verstehen:                    |
  166. :\*--------------------------------------------------------------*/
  167. :GERLEARN
  168.  
  169. pb status1b.ger    -fh7 -ft0  -x1 -y25 -r0  -s0
  170. pb learn.ger      -fh1 -ft15 -m1 -mm1 -x2 -y6
  171. if errorlevel 254 goto GERMENU
  172. if errorlevel 3   goto GERFARBELEARN
  173. if errorlevel 2   goto GERTEXTLEARN
  174. if errorlevel 1   goto GERMENULEARN
  175.  
  176. :GERMENULEARN
  177. pb status8.ger    -fh7 -ft0  -x1  -y25   -r0 -s0
  178. pb batch1.ger     -fh1 -ft15 -y1
  179. pb batch1b.ger    -fh1 -ft15 -y12
  180. pb status9.ger    -fh7 -ft0  -x1  -y25 -r0   -s0  -o1 -mm1 -mx40 -my12
  181. pb status9.ger    -fh7 -ft0  -x1  -y25 -r0   -s0      -mm1 -mx40 -my12
  182. pb batch11.ger    -fh1 -ft15 -y3  -mm1 -o1
  183. pb batch12.ger    -fh1 -ft15 -y4  -mm1 -o1
  184. pb batch13.ger    -fh1 -ft15 -y5  -mm1 -o1
  185. pb batch14.ger    -fh1 -ft15 -y6  -mm1 -o1
  186. pb batch15.ger    -fh1 -ft15 -y7  -mm1 -o1
  187. pb batch16.ger    -fh1 -ft15 -y7  -mm1 -o1
  188. pb batch17.ger    -fh4 -ft14 -y7  -mm1 -o1   -fr142
  189. pb status10.ger   -fh4 -ft14 -x1  -y25 -r0   -s0  -o1 -mm1 -mx40 -my12
  190. rem Oben wurde übrigens häufig nur die vertikale Lage der Fenster
  191. rem definiert, dann wird das Fenster horizontal automatisch zentriert.
  192. goto GERHALLO
  193.  
  194. :GERTEXTLEARN
  195. rem Dies ist ein typisches Beispiel für die Darstellung einer einfachen
  196. rem Textbox, hier noch zusammen mit einer Statuszeile.
  197. pb status1c.ger   -fh7 -ft0  -x1  -y25 -r0   -s0
  198. pb batch21.ger    -fh1 -ft15 -mm1 -o1
  199. goto GERLEARN
  200.  
  201. :GERFARBELEARN
  202. rem Dies ist ein typisches Beispiel für die Darstellung einer einfachen
  203. rem Textbox, hier noch zusammen mit einer Statuszeile.
  204. pb status1c.ger   -fh7 -ft0  -x1  -y25 -r0   -s0
  205. pb batch31.ger    -fh1 -ft15 -mm1 -o1
  206. goto GERLEARN
  207.  
  208.  
  209.  
  210. :/*--------------------------------------------------------------*\
  211. : |               Anzeigen der Farbtabelle/Beispiele:            |
  212. :\*--------------------------------------------------------------*/
  213. :GERLOOK
  214.  
  215. pb status2.ger -fh7  -ft0   -x1  -y25 -r0 -s0
  216. pb farben.ger  -ft15 -u3    -y1  -x2
  217. pb farben2.ger -fh0  -x66   -y5  -r0  -s0 
  218. pb farben2.ger -fh1  -x66   -y6  -r0  -s0
  219. pb farben2.ger -fh2  -x66   -y7  -r0  -s0
  220. pb farben2.ger -fh3  -x66   -y8  -r0  -s0
  221. pb farben2.ger -fh4  -x66   -y9  -r0  -s0
  222. pb farben2.ger -fh5  -x66   -y10 -r0  -s0
  223. pb farben2.ger -fh6  -x66   -y11 -r0  -s0
  224. pb farben2.ger -fh7  -x66   -y12 -r0  -s0
  225. pb farben3.ger -fh0  -ft8   -x66 -y13 -r0 -s0
  226. pb farben3.ger -fh0  -ft9   -x66 -y14 -r0 -s0
  227. pb farben3.ger -fh0  -ft10  -x66 -y15 -r0 -s0
  228. pb farben3.ger -fh0  -ft11  -x66 -y16 -r0 -s0
  229. pb farben3.ger -fh0  -ft12  -x66 -y17 -r0 -s0
  230. pb farben3.ger -fh0  -ft13  -x66 -y18 -r0 -s0
  231. pb farben3.ger -fh0  -ft14  -x66 -y19 -r0 -s0
  232. pb farben3.ger -fh0  -ft15  -x66 -y20 -r0 -s0
  233. pb farben3.ger -fh0  -ft143 -x66 -y21 -r0 -s0 -o1 -mm1 -my12 -mx40
  234. rem Die letzte Zeile wartet auf den Tastendruck: Es ist einfach
  235. rem das letzte Farbbeispiel, dem wir mitteilen "warte auf Tasten-
  236. rem druck!". Natürlich könnte man anstelle dessen auch die Status-
  237. rem zeile dazu bringen, auf den Tastendruck zu warten; ich wollte
  238. rem an dieser Stelle die Statuszeile aber zuerst auf dem Bildschirm
  239. rem haben, vor den Farbbeispielen.
  240. goto GERHALLO
  241.  
  242.  
  243.  
  244. :/*--------------------------------------------------------------*\
  245. : |                 Anzeigen der Programmparameter:              |
  246. :\*--------------------------------------------------------------*/
  247. :GERPARAM
  248.  
  249. pb param.ger      -fh1 -ft15 -m1 -mm1 -x35 -y6
  250. if errorlevel 254 goto GERMENU
  251. if errorlevel 7   goto GERPA7
  252. if errorlevel 6   goto GERPA6
  253. if errorlevel 5   goto GERPA5
  254. if errorlevel 4   goto GERPA4
  255. if errorlevel 3   goto GERPA3
  256. if errorlevel 2   goto GERPA2
  257. if errorlevel 1   goto GERPA1
  258.  
  259. :GERPA1
  260. pb status2.ger -fh7 -ft0 -x1 -y25 -r0 -s0
  261. pb param1.ger  -ft15 -o1 -mm1 -u3 -y2 -x2
  262. goto GERPARAM
  263.  
  264. :GERPA2
  265. pb status2.ger -fh7 -ft0 -x1 -y25 -r0 -s0
  266. pb param2.ger  -ft15 -o1 -mm1 -u3 -y2 -x2
  267. goto GERPARAM
  268.  
  269. :GERPA3
  270. pb status2.ger -fh7 -ft0 -x1 -y25 -r0 -s0
  271. pb param3.ger  -ft15 -o1 -mm1 -u3 -y1 -x2
  272. goto GERPARAM
  273.  
  274. :GERPA4
  275. pb status2.ger -fh7 -ft0 -x1 -y25 -r0 -s0
  276. pb param4.ger  -ft15 -o1 -mm1 -u3 -y2 -x2
  277. goto GERPARAM
  278.  
  279. :GERPA5
  280. pb status2.ger -fh7 -ft0 -x1 -y25 -r0 -s0
  281. pb param5.ger  -ft15 -o1 -mm1 -u3 -y1 -x2
  282. goto GERPARAM
  283.  
  284. :GERPA6
  285. pb status2.ger -fh7 -ft0 -x1 -y25 -r0 -s0
  286. pb param6.ger  -ft15 -o1 -mm1 -u3 -y2 -x2
  287. goto GERPARAM
  288.  
  289. :GERPA7
  290. pb status2.ger -fh7 -ft0 -x1 -y25 -r0 -s0
  291. pb param7.ger  -ft15 -o1 -mm1 -u3 -y1 -x2
  292. goto GERPARAM
  293.  
  294.  
  295.  
  296. :/*--------------------------------------------------------------*\
  297. : |               Anzeigen der Info - Demonstration:             |
  298. :\*--------------------------------------------------------------*/
  299. :GERINFO
  300.  
  301. pb backgrou.men  -fh0 -ft7  -x1  -y1 -r0 -s0
  302. pb titel.ger     -fh1 -ft15 -x2  -y2
  303. pb status3.ger -fh7  -ft0 -x1   -y25  -r0  -s0
  304. pb info1.ger   -ft15 -o1  -mm1   -u3  -r5
  305. pb info2.ger   -ft15 -o1  -mm1   -u3  -r5
  306. pb info3.ger   -ft15 -o1  -mm1   -u3  -r5
  307. pb info4.ger   -ft15 -o1  -mm1   -u3  -r5
  308. pb info5.ger   -ft15 -o1  -mm1   -u3  -r5
  309. pb info6.ger   -ft15 -o1  -mm1   -u3  -r5
  310. pb info7.ger   -ft15 -o1  -mm1   -u3  -r5  -y6  -x4
  311. pb naomi1.ger  -ft14 -fh4 -fr142 -o1  -mm1 -mx4 -my3
  312. pb naomi2.ger  -ft14 -fh4 -fr142 -o1  -mm1 -mx4 -my3
  313. pb status4.ger -fh2  -ft142 -x1  -y25 -r0  -s0
  314. pb naomi3.ger  -ft14 -fh4 -fr14  -o1  -mm1 -mx4 -my3
  315. pb status5.ger -fh7  -ft0  -x1   -y25 -r0  -s0
  316. pb flagge1.ger -ft14 -fh0  -x2   -y7  -r3
  317. pb status5.ger -fh7  -ft0  -x1   -y25 -r0  -s0  -o1  -mm1 -mx4 -my3
  318. pb flagge2.ger -ft15 -fh4  -x2   -y12 -r3
  319. pb status5.ger -fh7  -ft0  -x1   -y25 -r0  -s0  -o1  -mm1 -mx4 -my3
  320. pb flagge3.ger -ft0  -fh14 -r3   -y17 -x2
  321. pb status5.ger -fh7  -ft0  -x1   -y25 -r0  -s0  -o1  -mm1 -mx4 -my3
  322. pb flagge4.ger -ft14 -fr14 -x56  -y7  -r5
  323. pb status5.ger -fh7  -ft0  -x1   -y25 -r0  -s0  -o1  -mm1 -mx4 -my3
  324. pb status6.ger -fh7  -ft0  -x1   -y25 -r0  -s0
  325. pb kasten1.ger -ft14 -fh0  -r3   -mm1 -mx4 -my3 -y7  -x2  -aw1 -p10
  326. pb kasten2.ger -ft14 -fh4  -r3   -mm1 -mx4 -my3 -y8  -x3  -aw1 -p20
  327. pb kasten3.ger -ft14 -fh14 -r3   -mm1 -mx4 -my3 -y9  -x4  -aw1 -p30
  328. pb kasten4.ger -ft14 -fh0  -r3   -mm1 -mx4 -my3 -y10 -x5  -aw1 -p40
  329. pb kasten5.ger -ft14 -fh4  -r3   -mm1 -mx4 -my3 -y11 -x6  -aw1 -p50
  330. pb kasten6.ger -ft14 -fh14 -r3   -mm1 -mx4 -my3 -y12 -x7  -aw1 -p60
  331. pb status7.ger -fh7  -ft0  -x1   -y25 -r0  -s0
  332. pb kasten7.ger -ft14 -fh3 -fr11  -r3  -mm1 -mx4 -my3 -y11 -o1 -p100
  333. goto GERHALLO
  334.  
  335.  
  336.  
  337.  
  338.  
  339. :/*==============================================================*\
  340. : |                                                              |
  341. : | This is the english tutorial. See above for the german ver-  |
  342. : | sion! All labels start with a 'ENG' instead of the 'GER' as  |
  343. : | used above. All source files have '.eng' instead of '.ger'   |
  344. : | as extension.                                                |
  345. : |                                                              |
  346. :\*==============================================================*/
  347.  
  348.  
  349. :/*--------------------------------------------------------------*\
  350. : |                   Let's show the main menu:                  |
  351. :\*--------------------------------------------------------------*/
  352. :ENGHALLO
  353.  
  354. pb backgrou.men  -fh0 -ft7  -x1  -y1 -r0  -s0
  355. pb titel.eng     -fh1 -ft15 -x2  -y2
  356.  
  357.  
  358. :/*--------------------------------------------------------------*\
  359. : |                     Treat user's choice:                     |
  360. :\*--------------------------------------------------------------*/
  361. :ENGMENU
  362.  
  363. pb status.eng    -fh7 -ft0  -x1 -y25 -r0  -s0
  364. pb menu.eng      -fh1 -ft15 -fn0 -m1 -mm1 -mx4 -my3 -o1
  365. if errorlevel 254 goto END
  366. if errorlevel 6   goto ENGINFO
  367. if errorlevel 5   goto ENGMENU
  368. if errorlevel 4   goto ENGPARAM
  369. if errorlevel 3   goto ENGLOOK
  370. if errorlevel 2   goto ENGLEARN
  371. if errorlevel 1   goto ENGINTRO
  372.  
  373.  
  374. :/*--------------------------------------------------------------*\
  375. : |                   This is the introduction!                  |
  376. :\*--------------------------------------------------------------*/
  377. :ENGINTRO
  378.  
  379. pb backgrou.men  -fh0 -ft7   -x1 -y1    -r0 -s0
  380. pb status8.eng   -fh7  -ft0  -x1 -y25   -r0 -s0
  381. pb intro1.eng    -ft15 -u3   -y1 -fu142
  382. pb intro1b.eng   -o1   -y2   -x7 -r0    -s0 -ft14 -mm1
  383. rem Ok, ok... Different text colors in a single text box are
  384. rem just for your confusion :) What I really do here is to
  385. rem put the text box (intro1.eng) on the screen and to drop
  386. rem another text box (intro1b.eng), with different colors, on
  387. rem top of it.
  388. pb backgrou.men  -fh0 -ft7   -x1 -y1    -r0 -s0
  389. pb status8.eng   -fh7  -ft0  -x1 -y25   -r0 -s0
  390. pb intro2.eng    -ft15 -u3   -y1 -fu142 -o1 -mm1
  391. pb intro3.eng    -ft15 -u3   -y1 -fu142 -o1 -mm1
  392. pb intro4.eng    -ft15 -u3   -y1 -fu142 -o1 -mm1
  393. pb intro5.eng    -ft15 -u3   -y1 -fu142 -o1 -mm1
  394. pb intro6.eng    -ft15 -u3   -y1 -fu142 -o1 -mm1
  395. goto ENGHALLO
  396.  
  397.  
  398. :/*--------------------------------------------------------------*\
  399. : |                     Learn and understand:                    |
  400. :\*--------------------------------------------------------------*/
  401. :ENGLEARN
  402.  
  403. pb status1b.eng    -fh7 -ft0  -x1 -y25 -r0  -s0
  404. pb learn.eng      -fh1 -ft15 -m1 -mm1 -x2 -y6
  405. if errorlevel 254 goto ENGMENU
  406. if errorlevel 3   goto ENGFARBELEARN
  407. if errorlevel 2   goto ENGTEXTLEARN
  408. if errorlevel 1   goto ENGMENULEARN
  409.  
  410. :ENGMENULEARN
  411. pb status8.eng    -fh7 -ft0  -x1  -y25   -r0 -s0
  412. pb batch1.eng     -fh1 -ft15 -y1
  413. pb batch1b.eng    -fh1 -ft15 -y12
  414. pb status9.eng    -fh7 -ft0  -x1  -y25 -r0   -s0  -o1 -mm1 -mx40 -my12
  415. pb status9.eng    -fh7 -ft0  -x1  -y25 -r0   -s0      -mm1 -mx40 -my12
  416. pb batch11.eng    -fh1 -ft15 -y3  -mm1 -o1
  417. pb batch12.eng    -fh1 -ft15 -y4  -mm1 -o1
  418. pb batch13.eng    -fh1 -ft15 -y5  -mm1 -o1
  419. pb batch14.eng    -fh1 -ft15 -y6  -mm1 -o1
  420. pb batch15.eng    -fh1 -ft15 -y7  -mm1 -o1
  421. pb batch16.eng    -fh1 -ft15 -y7  -mm1 -o1
  422. pb batch17.eng    -fh4 -ft14 -y7  -mm1 -o1   -fr142
  423. pb status10.eng   -fh4 -ft14 -x1  -y25 -r0   -s0  -o1 -mm1 -mx40 -my12
  424. rem Note that in the above lines I have often defined the vertical
  425. rem position of the window only, thus asking PowerBatch to center
  426. rem it horizontically by itself.
  427. goto ENGHALLO
  428.  
  429. :ENGTEXTLEARN
  430. rem This is a typical example for the simple text box, this time to-
  431. rem gether with a status line.
  432. pb status1c.eng   -fh7 -ft0  -x1  -y25 -r0   -s0
  433. pb batch21.eng    -fh1 -ft15 -mm1 -o1
  434. goto ENGLEARN
  435.  
  436. :ENGFARBELEARN
  437. rem This is a typical example for the simple text box, this time to-
  438. rem gether with a status line.
  439. pb status1c.eng   -fh7 -ft0  -x1  -y25 -r0   -s0
  440. pb batch31.eng    -fh1 -ft15 -mm1 -o1
  441. goto ENGLEARN
  442.  
  443.  
  444. :/*--------------------------------------------------------------*\
  445. : |           Display the color table --- with examples!         |
  446. :\*--------------------------------------------------------------*/
  447. :ENGLOOK
  448.  
  449. pb status2.eng -fh7  -ft0   -x1  -y25 -r0 -s0
  450. pb farben.eng  -ft15 -u3    -y1  -x2
  451. pb farben2.eng -fh0  -x66   -y5  -r0  -s0
  452. pb farben2.eng -fh1  -x66   -y6  -r0  -s0
  453. pb farben2.eng -fh2  -x66   -y7  -r0  -s0
  454. pb farben2.eng -fh3  -x66   -y8  -r0  -s0
  455. pb farben2.eng -fh4  -x66   -y9  -r0  -s0
  456. pb farben2.eng -fh5  -x66   -y10 -r0  -s0
  457. pb farben2.eng -fh6  -x66   -y11 -r0  -s0
  458. pb farben2.eng -fh7  -x66   -y12 -r0  -s0
  459. pb farben3.eng -fh0  -ft8   -x66 -y13 -r0 -s0
  460. pb farben3.eng -fh0  -ft9   -x66 -y14 -r0 -s0
  461. pb farben3.eng -fh0  -ft10  -x66 -y15 -r0 -s0
  462. pb farben3.eng -fh0  -ft11  -x66 -y16 -r0 -s0
  463. pb farben3.eng -fh0  -ft12  -x66 -y17 -r0 -s0
  464. pb farben3.eng -fh0  -ft13  -x66 -y18 -r0 -s0
  465. pb farben3.eng -fh0  -ft14  -x66 -y19 -r0 -s0
  466. pb farben3.eng -fh0  -ft15  -x66 -y20 -r0 -s0
  467. pb farben3.eng -fh0  -ft143 -x66 -y21 -r0 -s0 -o1 -mm1 -my12 -mx40
  468. rem The above line waits for the keystroke: It is simply the last
  469. rem color example-box that we ask to wait. Of course, you can ask
  470. rem the statusline to wait instead, as well. But I wanted the sta-
  471. rem tusline to be displayed first.
  472. goto ENGHALLO
  473.  
  474.  
  475. :/*--------------------------------------------------------------*\
  476. : |                 Show the program's parameters:               |
  477. :\*--------------------------------------------------------------*/
  478. :ENGPARAM
  479.  
  480. pb param.eng      -fh1 -ft15 -m1 -mm1 -x35 -y6
  481. if errorlevel 254 goto ENGMENU
  482. if errorlevel 7   goto ENGPA7
  483. if errorlevel 6   goto ENGPA6
  484. if errorlevel 5   goto ENGPA5
  485. if errorlevel 4   goto ENGPA4
  486. if errorlevel 3   goto ENGPA3
  487. if errorlevel 2   goto ENGPA2
  488. if errorlevel 1   goto ENGPA1
  489.  
  490. :ENGPA1
  491. pb status2.eng -fh7 -ft0 -x1 -y25 -r0 -s0
  492. pb param1.eng  -ft15 -o1 -mm1 -u3 -y2 -x2
  493. goto ENGPARAM
  494.  
  495. :ENGPA2
  496. pb status2.eng -fh7 -ft0 -x1 -y25 -r0 -s0
  497. pb param2.eng  -ft15 -o1 -mm1 -u3 -y2 -x2
  498. goto ENGPARAM
  499.  
  500. :ENGPA3
  501. pb status2.eng -fh7 -ft0 -x1 -y25 -r0 -s0
  502. pb param3.eng  -ft15 -o1 -mm1 -u3 -y1 -x2
  503. goto ENGPARAM
  504.  
  505. :ENGPA4
  506. pb status2.eng -fh7 -ft0 -x1 -y25 -r0 -s0
  507. pb param4.eng  -ft15 -o1 -mm1 -u3 -y2 -x2
  508. goto ENGPARAM
  509.  
  510. :ENGPA5
  511. pb status2.eng -fh7 -ft0 -x1 -y25 -r0 -s0
  512. pb param5.eng  -ft15 -o1 -mm1 -u3 -y1 -x2
  513. goto ENGPARAM
  514.  
  515. :ENGPA6
  516. pb status2.eng -fh7 -ft0 -x1 -y25 -r0 -s0
  517. pb param6.eng  -ft15 -o1 -mm1 -u3 -y2 -x2
  518. goto ENGPARAM
  519.  
  520. :ENGPA7
  521. pb status2.eng -fh7 -ft0 -x1 -y25 -r0 -s0
  522. pb param7.eng  -ft15 -o1 -mm1 -u3 -y1 -x2
  523. goto ENGPARAM
  524.  
  525.  
  526. :/*--------------------------------------------------------------*\
  527. : |              Show the program info & demonstration:          |
  528. :\*--------------------------------------------------------------*/
  529. :ENGINFO
  530.  
  531. pb backgrou.men  -fh0 -ft7  -x1  -y1 -r0 -s0
  532. pb titel.eng     -fh1 -ft15 -x2  -y2
  533. pb status3.eng -fh7  -ft0 -x1   -y25  -r0  -s0
  534. pb info1.eng   -ft15 -o1  -mm1   -u3  -r5
  535. pb info2.eng   -ft15 -o1  -mm1   -u3  -r5
  536. pb info3.eng   -ft15 -o1  -mm1   -u3  -r5
  537. pb info4.eng   -ft15 -o1  -mm1   -u3  -r5
  538. pb info5.eng   -ft15 -o1  -mm1   -u3  -r5
  539. pb naomi1.eng  -ft14 -fh4 -fr142 -o1  -mm1 -mx4 -my3
  540. pb naomi2.eng  -ft14 -fh4 -fr142 -o1  -mm1 -mx4 -my3
  541. pb status4.eng -fh2  -ft142 -x1  -y25 -r0  -s0
  542. pb naomi3.eng  -ft14 -fh4 -fr14  -o1  -mm1 -mx4 -my3
  543. pb status5.eng -fh7  -ft0  -x1   -y25 -r0  -s0
  544. pb flagge1.eng -ft14 -fh0  -x2   -y7  -r3
  545. pb status5.eng -fh7  -ft0  -x1   -y25 -r0  -s0  -o1  -mm1 -mx4 -my3
  546. pb flagge2.eng -ft15 -fh4  -x2   -y12 -r3
  547. pb status5.eng -fh7  -ft0  -x1   -y25 -r0  -s0  -o1  -mm1 -mx4 -my3
  548. pb flagge3.eng -ft0  -fh14 -r3   -y17 -x2
  549. pb status5.eng -fh7  -ft0  -x1   -y25 -r0  -s0  -o1  -mm1 -mx4 -my3
  550. pb flagge4.eng -ft14 -fr14 -x56  -y7  -r5
  551. pb status5.eng -fh7  -ft0  -x1   -y25 -r0  -s0  -o1  -mm1 -mx4 -my3
  552. pb status6.eng -fh7  -ft0  -x1   -y25 -r0  -s0
  553. pb kasten1.eng -ft14 -fh0  -r3   -mm1 -mx4 -my3 -y7  -x2  -aw1 -p10
  554. pb kasten2.eng -ft14 -fh4  -r3   -mm1 -mx4 -my3 -y8  -x3  -aw1 -p20
  555. pb kasten3.eng -ft14 -fh14 -r3   -mm1 -mx4 -my3 -y9  -x4  -aw1 -p30
  556. pb kasten4.eng -ft14 -fh0  -r3   -mm1 -mx4 -my3 -y10 -x5  -aw1 -p40
  557. pb kasten5.eng -ft14 -fh4  -r3   -mm1 -mx4 -my3 -y11 -x6  -aw1 -p50
  558. pb kasten6.eng -ft14 -fh14 -r3   -mm1 -mx4 -my3 -y12 -x7  -aw1 -p60
  559. pb status7.eng -fh7  -ft0  -x1   -y25 -r0  -s0
  560. pb kasten7.eng -ft14 -fh3 -fr11  -r3  -mm1 -mx4 -my3 -y11 -o1 -p100
  561. goto ENGHALLO
  562.  
  563.  
  564.  
  565. :/*--------------------------------------------------------------*\
  566. : |               Programmende / The rest is silence.            |
  567. :\*--------------------------------------------------------------*/
  568. :END
  569.  
  570. cls
  571.